home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 4 / QRZ Ham Radio Callsign Database - Volume 4.iso / files / dsp / 56ktools / a5611.tz / a5611 / examples / caltone.a56 next >
Text File  |  1992-08-11  |  1KB  |  96 lines
  1. ; Output a calibration tone using table lookup and interpolation.
  2. ; 
  3. ; written by Quinn Jensen (jensenq@npd.novell.com)
  4. ; ref: _Digital Sine-Wave Synthesis Using the DSP56001_,
  5. ;    Motorola app note APR1/D rev 1
  6. ;
  7.  
  8. include 'tdsg.basic.a56'
  9.  
  10. ;***************************************************************
  11. ;
  12. ;    sample rate computations
  13. ;
  14. ;***************************************************************
  15.  
  16. dot
  17.     org    x:$20
  18.  
  19. include    'caltone.inc'
  20.  
  21. dphase    dc    dphase_h
  22.     org    y:$20
  23.     dc    dphase_l
  24.     org    x:$21
  25. phase    dc    0
  26. sinetab    equ    $100
  27.  
  28.     org    p:dot
  29. ;
  30. ; non-interrupt code
  31. ;
  32.  
  33. hf_init
  34.     ori    #4,omr
  35.     rts
  36.  
  37. eff1_on
  38. eff1_off
  39. eff2_on
  40. eff2_off
  41. eff3_on
  42. eff3_off
  43. eff4_on
  44. eff4_off
  45.     rts
  46.  
  47. ;
  48. ; fs = 32.552083 kHz
  49. ;
  50.  
  51. hf_comp
  52.     jsr    <saveregs
  53.  
  54. #if 0
  55.     move        x:<in_l,a
  56.     move        a,x:<out_l
  57.     move        x:<in_r,a
  58.     move        a,x:<out_r
  59. #endif
  60.  
  61.     move        l:<phase,a
  62.     move        l:<dphase,y
  63.     move        y0,b
  64.     lsr    b
  65.     move        b1,x1        ;x1 = frac
  66.     add    y,a
  67.     move        #>$0000FF,y1
  68.     and    y1,a
  69.     move        a,l:<phase
  70.     move        a1,n0
  71.     move        #sinetab,r0
  72.     movec        #$FF,m0
  73.     nop
  74.  
  75.     move        y:(r0+n0),y0
  76.     move        y0,a
  77. #if 0
  78.     macr    -x1,y0,a
  79.     move        (r0)+
  80.     move        y:(r0+n0),y0
  81.     macr    y0,x1,a
  82. #endif
  83.  
  84.     move        a,y0
  85.     move        #ampl,y1
  86.     mpyr    y0,y1,a
  87.  
  88.     move        a,x:<out_l
  89.     move        a,x:<out_r
  90.  
  91. bypass
  92.     jsr    <restregs
  93.     rts
  94.  
  95.     end
  96.